

#laptop
setwd('/Users/joelsievert/Dropbox/Research/Electoral Institutions/DRDR/journal submissions/JPIPE/final submission/Replication Materials')



pb <- read.csv("jpipe_tab4.csv")

table(pb$type)

aggregate(county_diff ~ type, FUN = mean, pb)

m <- lm(county_diff ~ as.factor(type) + as.factor(state), pb)
o <- coeftest(m, vcov = cluster.vcov(m, cluster = pb$state))

